home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VJUSTIFY.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
2KB
|
55 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Justified text.
;*------------------------------------------------------------------------
globl _v_justified
_v_justified:
; .cargs #8,handle.w,x.w,y.w,p_str.l,length.w,wspace.w,cspace.w
handle = 8
x = 10
y = 12
p_str = 14
length = 18
wspace = 20
cspace = 22
link a6,#0
move.l p_str(a6),a0 ;* Get the string pointer.
jsr vstr_stack ;* Go integerize and stack string.
move.w cspace(a6),-(sp) ;* The character and word spacing
move.w wspace(a6),-(sp) ;* flags are the 1st 2 intin words.
addq.w #2,d0 ;* Count the 2 extra words in length.
move.l sp,a0 ;* Save pointer to intin.
clr.w -(sp) ;* Build the ptsin array on the stack,
move.w length(a6),-(sp) ;* because it has an extra null word
move.l x(a6),-(sp) ;* after the x/y/length.
move.l sp,a1 ;* Save pointer to ptsin.
; VContrl #11,#10,#2,d0
move.w handle(a6),-(sp) ; contrl[6]
move.w #10,-(sp) ; contrl[5]
subq.l #2,sp ; contrl[4]
move.w d0,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
move.w #2,-(sp) ; contrl[1]
move.w #11,-(sp) ; contrl[0]
subq.l #8,sp ;* -> ptsout, intout
move.l a1,-(sp) ;* -> ptsin
move.l a0,-(sp) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end